﻿Imports Entidades
Public Class frmDetallesCliente
    Public cliente As New Cliente

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub frmDetallesCliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtNombre.Text = cliente.NombreApellidos
        txtTelefono.Text = cliente.Telefono
        txtEmail.Text = cliente.Email
        Dim lista As List(Of TipoCliente) = miGestion.obtenerTiposCliente
        For i As Integer = 0 To lista.Count - 1
            If lista(i).id = cliente.IdTipoCliente Then
                txtTipo.Text = lista(i).nombre
                Exit For
            End If
        Next


    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()

    End Sub
End Class